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OPCSOPERUTIL Ib-5¢ -1984 01:39:19 AX-11 Bliss-32 V4.0-742 P 

1278657198e 93:80:57 — YOScom. BhcSepcauyii asset gees 
: 1 200 ° MODULE OPCSOPERUTIL Has, mt $32), 
; 5 88 oF bee 860 
Pag 0008 0 
: § sia) icatiesacaanslionglesisebolodieaie de edeelatalanencanate score 
Py :* 
3 8 0008 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 9 0009 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: 19 Bard 8 » ALL RIGHTS RESERVED. * 
° ; © 
: i Bot¢ 8 '® hag SOF TWARE iS FURNISHED UNDER A LICENSE AND MAY BE use AND og a * 
ww 01 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
$ 14 0014 'e INC LUSION OF THE ABOVE COPYRIGHT NOTICE. THIS TWARE OR ANY OTHER ® 
H 15 0015 ie soe” THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 16 Ba18 QO !* O RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i ole 2 ORANSFERRED. . 
Py :* Pa 
: 19 0019 QO !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; st Bost Q '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
; $4 Bos) 0 o CORPORATION. * 
° . ® 
3 $¢ $058 6 'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 24 boSe Q !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ee a 
: $f Bose 0 i eee ee eee eeeeeeeeeKee Ree ee eee ee eee eee eeeeedeneeeeeeeeeeeeeneeeeeeeeeer 
: $8 0039 0 t+ 
; $0 $050 0 | FACILITY: 
; SF 0031 0! 
8 0035 0 | =o 
; 34 0034 0 i ABSTRACT: 
; 36 036 0} This module contains the general wes tap routines used 
ae 0037 0! to manipulate operator control blocks. These routines 
s 3 sit 2 are used freely throughout OPCOM'’s request handlers. 
; 40 9040 ; Environment: 
; 42 944 i VAX/VMS operating system. 
3 43 004 0! 
3 $8 bhee 8 } Author 
; 48 Bee 3 : Steven T. Jeffreys 
: $8 Bes : Creation date: 
: 30 329 0 March 10, 1981 
; 26 O3¢ : Revision historv: 
: az 054 i V03-004 CWH3169 CW Hobbs 55-May-1984 
; 3 55 8 ‘ Second pass for cluster-wide OPCOM: 
; m= Reo : - Use queued brkthru mechanism to send messages. 
s oT 0057 0! - Add DVI$_ code to SHARE_FULL_DEVNAME calls. 
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OPCSOPERUTIL 2 V4.0-742 P 
vO4=000 RUTIL.83231 te 


; 8 0 ‘ 

; 9 $89 ' v03-003 CWH3003 CW Hobbs 16-Sep-1983 

; 60 64 ' Add a flag that a disable is in rogress to prevent recursive 

; © 06 ; disables. Change SBRDCST to SBRKTHRU. Comment out incomplete 

3 ° $066 code for mailboxes as operators. 

; «664 0064 ! vO3-002 CwH3002 CW Hobbs 30-Jul-1983 

. & 065 ! Various and sundry things to make OPCOM distributed 

3 ? BRe across the cluster. 

; @& 0068 ! y03-001 $TJ3034 Steven T. Jeffreys, 06-0c t-1982 

; , 4534 Check for dial-in terminal. Treat it as a remote terminal. 

. 0071 8 ' v02-002 S$TJ0165 Steven T. Jeffreys, 08-Feb-1982 ; 

3 y it 9 Make references to Library routines use general addressing mode. 

3; 0074 0 !-- 

. 0075 0 

3 28 st : BEGIN ! Start of OPERUTIL 

; 78 0078 1 LIBRARY ‘SYSSLIBRARY:LIB.L32'; 

; 0079 1 LIBRARY 'LIB$:OPCOMLIB'; 

; & 0080 1 

; 0081 1 FORWARD ROUTINE 

; @ 0082 1 CHECK_OPER_COVERAGE : NOVALUE, ! Check operator coverage on requests 
. 0083 1 FIND_OPERATOR ! Find a given operator RQCB 

; (84 0084 1 IMPLICIT DISABLE ! Check for implict disable of an operator 
; 0085 1 NOTIFY_LTSTED OPERATORS, ! Notify the operators on the given List 
3 0086 1 NOTIFY_OPERATOR, ! Send a message to an operator 

s 87 0087 1 OPERUTIL_CLM_IMP_DISABLE : NOVALUE, ! Implicit disable from another node 
3 0088 1 UPD OPER CONTEXT, ! Update operator context ; 

; «689 O08 : VALTD_OPERATOR; ! Check for valid operator device 

a 2 | 0091 1 BUILTIN 

; 0092 1 INSQUE, ! Insert entry onto a queue 

; 93 00935 1 REMQUE ; ! Remove entry from a queue 

; © 0094 1 

; «695 0095 1 EXTERNAL 

é 0096 1 GLOBAL_STATUS : BITVECTOR (32), 

: «697 0097 1 LCL_NOB : $ref_bblock, 

: 98 0098 1 LCL_CSID; 

: WW 0099 1 

; 100 0100 1 EXTERNAL ROUTINE 

: 6101 0101 1 CLUSUTIL_SYSTEMID_EQUAL : JSB_ROR1, 

; Ve 0102 1 UMP_LOG FILE, 

3 103 0103 1 REPLYBRD-BRKTHRU_QUEUE : NOVALUE; ! Queue a $brkthru 1/0 


- eee ee Se ee 


1 
OPCSOPERUTIL 18-Sep-1984 01:39:19 YAX=11 BLiss=32 
“YOs=000 1e-8eb-1984 42:50:57 LOopcom. SRCSoPERUT 
GLOBAL ROUTINE CHECK_OPER_COVERAGE (OCD) : NOVALUE = 


be¢ 
! Functional descripton: 


posolo) 


NOUS 


This routine will check all outstanding requests queued to 

a given OCD for proper operator coverage. — request that 

no ionger has operator coverage will be canceled. The requestor 
will receive a NOPERATOR cancelation message. No operators are 
notified, since none are interested in the request. The cancelation 
is, however, logged. 


a SOS cunts 
Oe Be ee Be Oe Be Be Be Oe Oe Be Se Be Be Se Ge FH Ee Se SH Se He Be Be Se Se Oe Gs Oe Be Bs Be Be Oe Se He Os Se Se He Se Se OH Se Be Se Os Oe Oe Oe Oe OH Ss Oe ee Sees 


Implicit Output: 
None. 


Input: | 
OCD : Address of an OCD 

Implicit Input: | 

None. | 

Output: | 

None. | 

| 


Side Effects: 


None. . 


Routine Value 


! Start of CHECK_OPER_COVERAGE 


z= ® 
mm 
oe 
al 
2 


oOcD : $ref_bblock; 


EXTERNAL ROUTINE 
DEALLOCATE_RQCB : NOVALUE, 
MAT _MESSAG 


LOG_MESSAGE, 
SEND_REPLY; 


| 
None. | 
OCD data structure 


AUE WN OS OONA MEW OOO NAUS UN HO OONO UNSW OOO 


Dispose of an RQCB 

Format a message 

Log an event s 
Send a reply to reply mailbox 


LOCAL 
ois SSARE VECTOR : VECTOR C2,LONG), 


Message info 
: Sref_bblock, 


MCB data structure 


RQST_COUNT : LONG, Count of outstanding requests 
T : $ref_bblock, Pointer to current request RQCB 
NEXT_RQST : LONG; Pointer to next request RQCB 


' 
Set up the message info vector. 
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OPCSOPERUTIL 

v04-00 

: 16 MESSAGE _VECTOR fo} = Fn PePERATOR: 
163 MESSAGE VECTOR 1J = 0; 

F165 Set up for the search Loop. 


NEXT_RQST = .OCD COCD_L_RQSTFLINK]; 
ROST-COUNT = .OCD COCB_Q_RQSTCOUNT); 
WHILE, <ROST_COUNT GTR-OY DO 


' intererst mask for this OCD 
! anu must be canceled. 
13 
QST CROCB_L_FLINK 
IF T(.RQST CROCB_L_ATTAMASK1) 
AND ((,RQST CROCB_L_ATTNMASK2] 
THEN 

BEGIN 

i Cancel the request. 


WN OO DONOUSWN "OO OOnNe 


' an 
1 


LOG MESSAGE (.RQSTS; 
DEACLOCATE_RQCB (.RQST); 


END; 
RQST_COUNT = .RQST_COUNT - 1; 
END; 
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ee 


| 
| 001¢ 00000 
E 04 C2 00002 
00058061 8F bd 0000 
04 AE D4 00008 
| 50 04 AC DO 00 
| 5 C AO DO 0001 


c 1 
16-Sep-1 
14-Sep-1 


Pru 

Zz: 
oo 
° 
oO 
= 


_ This entails removin 
4 tne ye queue, sending the cancel notice 
deallocating the request RQCB. 


o8e 91:39:19 AX-11 Bliss-32 V4.0-742 
984 12:50:51 OPCOM.SRCJOPERUTIL.B32;1 
' Set geseage code 

! Set # of FAO arguements 


! Get address of next RQCB 
! Get count of requests 


i Compare the request attention mask against the operator 

: a0 CD. If there are no common 

bits, then the request does not have any operator coverage 
! 


' Get address of request RQCB 
! Get address of next RQCB 
_ATTNMASK1)) EQL 0) 


COCD_L 
COCD“L“ATTNMASK2]) EQL 0) 


it from the OCD 
o the requestor, 


ueue the request 


: A, 
J = .0CD COCD_W_RQSTCOUNT] - 1; 


! End of CHECK_OPER_COVERAGE 
LE OPCSOPERUTIL 
\V04=000\ 


GLOBAL_STATUS, LCL_NOD 
TRN LCL_CSTID, CLUSUTIL-SYSTEMID_EQUAL 
RN MP_LOG FILE, REPCYBRD_BRKTHRU_QUEUE 
XTRN DEALCOCATE_RQCB 
FORMAT MESSAGE, LOG_MESSAGE 
-EXTRN SEND_REPLY 


PSECT S$CODE$,NOWRT,2 

.ENTRY CHECK_OPER_COVERAGE, Save R2,R3,R4 
SUBL2 

PUSHL #360545 

CLRL MESSAGE_VECTOR+4 

MOVL OCD, R 

MOVL  60(RO), NEXT_RQST 


OP( 
v0é 


———— — a a sss ns 


- % 
OPCSOPERUTIL 16-Sep-1984 01:39:19 AX-11 Bliss-32 V4.0-742 Page 5. 
¥06-000 127808-1 3b 03:38:23 OPCOM. SRCJOPERUTIL.B32;1 9° 123 | vou 
54 3A AO 3¢ 9016 MOVZWL $8(R0), RQST_COUNT : 0167) 
44 1 O1A 1$: BLEG $ : 0168 | 
5 33 DO 0001C MOVL  NEXT_RQST, RQST + 0176) 
5 62 DO O001F MOVL (ROST), NEXT_ROST : 0177) 
50 04 AC DO 00022 MOVL cp R : 0178) 
48 AO 5C Ae D3 00026 BITL  92(RQST), 72(RO) : 
2F 12 60028 BNEQ es : 
4C =A 60 A2 D3 0002D BITL 6(RQST), 76(RO) : 0179. 
28 12 00032 BNEQ 2$ : 
| 52 62 OF 00034 REMQUE (RQST), RQST + 0187 
50 4 AC 09 00037 MOVL OCD, RO + 0188 
A AO B87 00038 DECW  58(RO) ; 
4004 8F BB 000 PUSHR #*M<R2,SP> : 0189| 
00006 CF 0@ FB 0004 CALLS #2, FORMAT_MESSAGE : 
52 DD 0004 PUSHL R : 0190 
00006 CF 01 FB 00049 CALLS #1, SEND_REPLY : 
52 DD 0004E PUSHL + 0191 
00006 CF 01 FB 00050 CALLS #1, LOG_MESSAGE ; 
52 DD 00055 PUSHL  RQST + 0192 
00006 CF 01 FB 00057 CALLS #1, DEALLOCATE_RQCB : 
54 D7 O005C 2% DECL. RQST_COUNT : 0194 
BA 11 0005E BRB 1$ : 0168 
04 00060 3$ RET ; steeh 
; Routine Size: 97 bytes, Routine Base: $CODE$ + 0000 


r 
' 


ee 


1 
OPCSOPERUTIL 16-Se 1984 01:39:19 AX=11 Bliss-32 
VOs-000 14-Sep-19 4 93:50:81 OPCOM. SRCJOPERU 


GLOBAL ROUTINE FIND_OPERATOR (RQCB, BLOCK) = 


144 
' Functional description: 


2 Page 6 


This routine will scan ore the List(s) of operators 
known by OPCOM, and return the address of the operator 
RQOCB if it is found. 

i Input: 


RQCB : Address of an RQCB that describes the operator 
device that is being sought. 


i Implicit Input: 


i Output: 


} 

None. | 

| 
the address of the known operator RQCB. 

i Implict output: 

None. 

i Side effects: 


If the operator is found, then the RQCB is provided | 
with a pointer to the OCD. | 


i Routine value: 


WN $0 VON UEFWR $0 OONOUS WH -OOOn 


' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
J 
' 
! 
! 
BLOCK : Contains the address of a longword to receive 
i 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
TRUE : If the operator is known to OPCOM 
' 


FALSE : If the operator is not known to OPCOM 
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m 
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7 
38 : ! Start of FIND_OPERATOR | 
40 8 

$e) , RQCB : Sref_bblock; : RQCB data structure 
“8 1 2 EXTERNAL ROUTINE = | 
rf my! IMPLICIT_DISABLE; ! Check for implicit disable 
36 G4 EXTERNAL LITERAL r 
47 45 MIN_SCOPE, ! Minimum scope value 
see $6 MAX_SCOPE; ! Maximum scope value 
250 48 EXTERNAL 
23 rh OCD_VECTOR : VECTOR; ! Pointer to OCD structure 
$33 51 LOCAL 
254 2¢ OcD : $Sref_bblock, ! OCD data structure 
255 5 OPER_RQCB : Sref bblock, ! Operator RQCB structure 
256 54 OCD_INDEX : LONG, ! Index into OCD_VECTOR 
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16-Sep-1984 01:39:19 AX-11 Bliss-32 V4.0-742 Page 7 
1o-808- 138 oy: 0:51 OPCOM. SRCJOPERUTIL .B32¢1 . (3), 
OCD_COUNT : LONG, ' Count of OCDs in the OCD List 
OPER_COUNT : LONG, ' Count of operators in OCD List 
FOUND : LONG; ! Boolean loop control 


! 
! Scan through the List of all known operators, 
! Looking for a match on the device name. 

! The scan is started on the lowest privileged 
operator class and proceeds to the highest. 


Scan the OCD List for each class of operator. 


OCD = -OCD_VECTOR C(.OCD_INDEX = 1)*2); Get OCD address 

OCD_COUNT = .OCD_VECTOR [(.OCD_INDEX - 1)*2+1]; ! Get count of known operators of this scope 
ee at -FOUND) AND (.OCD_COUNT GTR 0) DO 

' 


“BLOCK = 0; ' Zero the output parameter 
DED INDE c HAX SCOPE et eee un ivil d) l 
z : i Se est (lowest privileged) scope value 
WHICE (.OCD_INDEX GE& MIN_SCOPE) AND (NOT .FOUND) DO . : " sc 
BEGIN 
i 
i 


- 
Sete Se Se ee Se SH Sees ee SH Se SHS Se Se Se Se ee SHS ee 


; Scan the operator List for each OCD. 


OPER_COUNT = .0CD COCD_W_OPERCOUNT); Get the count of operators in the List 
OPER _RQCB = .OCD LOCD_L_OPERFLINK]; ! Get pointer to first operator in the List 
WHILE  (. 9PER_COUNT GTR-OY AND (NOT .FOUND) DO 

‘ 


i Examine the device name for each operator in the List. 
: sonpees the operator device names for ge oyte 
Both device names are assumed to be in the DDCU format. 


IF CHSEQL (.OPER_RGCB CRQCB_L_OPER_LEN], 
-OPER-RQCB CRQCB"L_OPER-PTRI, 
-ROCB CRQCB_L_OPER-LEN], 
grace RQCB_L_OPER_PTRJ, | 


BEGIN 
FOUND = TRUE; 
-BLOCK = .OPER_ROCB; 


: ‘ The operator is known to OPCOM 
ROCB CRQCB_L_OCD] = .OCD; 
END 


Save the RQCB address 
Save the OCD address 


Get Link to next operator RQCB 


BEGIN 
OPER_RQCB = .OPER RQCB CROCB_L FLINK); 
; Decrement operator count 


OPER“COUNT = .OPER_COUNT - 1 


END; 
OcD = .O0CD COCD_L_FLINK); 
OCD_COUNT = .OCB_COUNT - 1; 


ND 
OCD_INDEX = .OCD_INDEX = 1; 
END; 


Get address of next OCD 
Decrement OCD count 


Decrement OCD_INDEX 


i 
1 
RUT 16-Sep-1984 01:39:19 AX-11 Bliss-32 V4.0-742 Page 8 
“Yoe~006 — 1$-sen-1984 PoE) SPS Mime erp YB Ft oO - a 
1s 316 0 1 
is 15 1 ! 
|: 1 0 14 i If the operator was found, make sure 
3 i 1? } it has not been implicitly disabled. 
ie 19 0 " iF, FOUND 
: A 0319 FOUND = NOT (IMPLICIT_DISABLE (.OPER_RQCB)); | 
: ¢ 0331 RETURN (.FOUND); ' Return status of search | 
; $i 0322 1 END; ! End of FIND_OPERATOR | 
.EXTRN In PLICIT DISABLE 
«EXTRN MIN_SCOPE, MAX_SCOPE 
SEXTRN OCD “VECTOR 
O7FC 00000 ENTRY FIND OPERATOR, Save R2,R3,R4,R5,R6,R7,RB,- ; rit 
08 BC D4 00002 CLRL  aBLOCK + 0265 
58 D4 00005 CLRL —« FOUND ; 0266 
54 000000006 er D0 99007 HOVL #MAX. SCOPE , OCD_INDEX : 0267 
000000006 8F 24 D1 00012 1$: CMPL OCD_ INDEX, #MIN_SCOPE : 0268) 
54 58 Es 0001B BLBS FOUND, 8$ : | 
50 54 01 78 9001€ ASHL #1, OCD_INDEX, RO ; 0273) 
55 0000GCF40 DO 0002 MOVL  OCO_VEC CTOR- 8 RO]. ocd : 
SA 0000GCF40 D0 00028 MOVL  OCD-VECTOR=-4CROJ. OCD_COUNT : 0274 | 
3A 58 £8 000¢E 2$: BLBS FOUND. 6$ ; 0275 | 
38 15 00031 BLEQ 3 F | 
59 46 AS 3 00033 MOVZWL 70(OCD), OPER_COUNT + 0280 
57 50 AS DO 0003 MOVL  80(OCD). ag ER-RQCB > 0281 
59 05 00038 3$: TSTL  OPER_COUN : 0282 
22 $3 8 Sboae Oi ines 5$ ; 
7c A 00 0080 07 0058 ay 5 90042 CMPCS 124 (OPER -ROCB) » 128 (OPER ROCB) . #0, - ; one 
OD 12 0004E BNEQ 4$ : 
58 01 00 00050 MOVL st] UND : 0297 
08 BC 57 DO 00053 MOVL open. FROCB @BLOCK : 0298 
24 «AG 55 pO 00057 MOVL OC, , 36 (RO) : 0299 
3 11 00098 BRB $ : 0¢89 
57 67 DO 0005D 4$: MOVL (OPER_RQCB), OPER_RQCB : 0303 
59 07 90060 DECL PER_COUNT > 0304 
D7 11 00062 BRB $ ; 0282 
55 65 D9 90064 5$: MOVL (OCD), OCD : 030 | 
5A 07 00067 DECL O¢D_COUNT : 0308 
cs 11 00069 BRB $ ; 075 
4 07 00068 68: ECL -OCD_INDEX : 0810 | 
A311 0006D BRB 1s : 0268 | 
OA 38 E9 OO06F 7$: BLBC FOUND, 9$ ; 0317 | 
57 DD 2 BS: PUSHL OPER R_ROCB : 0319 | 
00006 cr 1 oe $0049 CALLS m. IMPLICIT DISABLE : | 
50 58 DO 0007C 98: MOVL FOUND, RO > 0320 


8 ae al IL 


RET 


04 0007F 


SCODES + 0061 


Routine Base: 


128 bytes, 


; Routine Size: 


ee Cee OO - 


| 

| OPCSOPERUTIL 1b-se -1984 01:39:19 AX-11 Bliss-32 V4.0-742 Page 10. OP( 
v04-000 12-80 8= 1c HT OPCOM.SRCJOPERUTIL.832;1 " sad vOé 
; $ ; ! GLOBAL ROUTINE IMPLICIT_DISABLE (OPER_RQCB) = | : 
3 8 5 7 tee : 
; 2 $ ! Functional description: | ; 
3 1 8 8 i! This routine will determine if an operator device has : 
: é 9 1! been implicitly disabled. That is, if the operator device | 
$ ; 0330 1! is no longer marked as an operator. The OPR bit is cleared : 
; 83 Bek when the last channel to a non-allocated device has been 3 
$ 35 0 ¢ 7% released, or when a device is deallocated. The OPR bit will : 
; 7 03 Z : be reset if the operator is a ‘‘permanent’’ operator. ; 
; 8 5 1! Input: | : 
s; iy 83 $ se 3 
3 341 th ! OPER_RQCB : Address of an operator RQCB : 
; 3% 339 1°! Implicit Input: ; 
: 30 oso 7 i tt? " : 
> 344 0341 1! None. 3 
; 345 tak: 1! 3 
: 346 0343 1 ! Output: : 
; 347 0344 1! 3 
; 348 0345 1! None. 3 
; 349 0346 1! 3 
; 350 0347 1°! Implict output: F 
3 3) 0348 1! | $ 
; 328 0349 1! None. 3 
oe Oss0 ft 3 
: 354 0351 1 ! Side effects: 3 
3 300 B226 1! 3 
: 328 0355 1! If the operator has been implicitly disabled, and is not 3 
: 0354 1! @ permanent operator, then the operator will be disabled : 
$ 339 O22 ; without a disable message being sent to the operator. ; 
: 0 0357 1 ! Routine value: 3 
; 1 0358 1! : : 
; oe 0359 1! TRUE : If the operator is disabled 3 
a. tae : FALSE : If the operator is still enabled ; 
3 308 O30¢ 1 : 
; 366 036 BEGIN ! Start of IMPLICIT_DISABLE 3 
: 7 8368 $ 
3 8 365 P 3 
3 , B06 OPER_RQCB : Sref_bblock; ! Operator RQCB structure : 
3s 3571 0368 EXTERNAL ROUTINE | 3 
: 37 038? CHECK_OPER_COVERAGE, ' Check coverage for requests | 3 
: 0370 CLUSMSG_ROTB_SEND, ' Tell the cluster about something : 
3 6374 71 DEALLOCATE_ROCB : NOVALUE, ' Dispose of an RQ(B 3 
J ie 336 UPD_OPER_CONTEXT; ! Update an operator context 3 
: 377 0374 LOCAL 
: 378 B372 LOST_COVERAGE : LONG, ! Boolean ; 
: 379 376 v_CTHAR : Sbblock COIBSK_LENGTH],! Device characteristics buffer 
: 380 37 CHAR_DESC : $desc_block, ! Dev. char. buffer descriptor 
; «381 378 OCD : $Sref_Bblock, ' OCD data structure 
; 382 0379 DISABLED : LONG, ! Boolean 
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4-5 
3 ti 8 i ARG.LIST : VECTOR (3); ! Arguement List for EXESSETOPR 
: 385 
; 56 0 § Do not implicitly disable operators on other nodes 
; $8 8 i if -GLOBAL_STATUS CGBLSTS_K_IN_VAXc luster] 
: 64 8 e IF NOT CLUSUTIL_SYSTEMID_EQUAL (OPER_RQCB CRQCB_T_SYSTEMID], LCL_NOD CNOD_T_NODE_SYSTEMID]) 
; 3 0 89 RETURN FALSE; ! Not disabled 
: 394 Ba) i If the operator has a disable in progress, then do not try another one. This is just in case 
3 $02 O38 any routine that we call tries to notify operators. 
; 397 0394 2 iF .OPER_RQCB COPRSTS_V_IMPDISABLE) 
; 3 0395 THEN 
; 399 0396 RETURN TRUE; 
; 400 0397 ! 
: 401 0398 ' Create a descriptor for the characteristics buffer and 
3 rt $484 get the operator device characteristics. 
: 404 0401 DISABLED = PAL Sti ! Assume operator not disabled 
> 405 040¢ CHAR_DESC (0,0,32,0] = DIBSK_LENGTH; i Set buffer length 
; 406 040 CHAR-DESC COSC$A_ POINTER) = BEV CHAR; ' Set buffer address 
; 407 0404 IF NOT (SGETDEV TDEVNAM=OPER_ROQTB CRQCB_L_OPER_LENJ, PRIBUF=CHAR_DESC)) 
: 409 0406 5 DISABLED = TRUE; ! Device no longer exists 
: 4610 0407 2! 
: 21) 949 ; } Check the OPR bit. Reset it if this is a permanent operator. 
: ci8 9410 3 if NoT (.$bblock CDEV_CHAR CDIBSL_DEVCHAR], DEV$V_OPR]) 
; aia oe ¢ 2 ig eblock COPER_RQCB CRQCB_L_RQ_OPTIONS], OPC$V_PERMOPER] 
HB bccn 
: rth Be § H ; Reset the OPR bit in the device UCB. 
: 421 0418 3 ARG_LIST (0) = 2; ' Set number of arguements 
: 4@ 0419 3 ARG-LIST £1) = OPER_RQCB CRQCB_L_OPER_LEN); 
; 4623 0420 3 ARG_LIST (2) = ON; ‘Set bit state 
: 4246 0421 4 IF ROT SCMKRNL (ROUTIN=EXESSETOPR, ARGLST=ARG_LIST) 
; 425 04 ¢ THEN 
3 $58 04 DISABLED = TRUE; 
oe 0424 D 
; 428 0425 LSE 
3 6 DISABLED = TRUE; 
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9 
$ ae 
31 8 ! If the operator is disabled, then remove it from the operator List. 
$38 8 9 ! Do not notify the operator of the disable. After doing the disable, 
ctr ; ? check to see if any requests have lost operator coverage. 
435 be § IF .DISABLED 
436 04 THEN 
437 - BEGIN 
438 4 ! 
439 04 


i The racb is tainted, let everybody know 


— 


-EXTRN CLUSASG RQCB SEND 
UPD OPER 


PD_OPER_CONTEXT 
~EXTRN svesec TDEV. EXESSETOPR 
~-EXTRN SYSSCMK 


sf. 
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440 437 H 
<2] re 3 OPER -RQCB COPRSTS_V_IMPDISABLE] = TRUE; ; 
ee ork i Tell the cluster to disable this operator ; 
445 044 CLUSMSG_RQCB_SEND ( CLM__IMP DISA -OPER_RQCB); : 
446 bce§ LOST_COVERAGE = UPD “OpERS CONTEXT Do the disable H 
"OPER -RQCB CROCB_L “ATINASE ; 
4 [OPER -RQCB CROCB_L_ATTNMASK2 ; 
re -OP ER_RQCB ; 
448 
449 =0CD 
450 ocd tote g Ro sa = rae tas kg oe _OPERCOUNT] = 
t2) DEALLOCATE_ RQCB et UOPER _RQCB); E blesie of the RQCB 
re i qf operator coverage was lost due to the disable, check all 
454 i geet reuquests queued to this OCD for operator coverage. 
re 12? ALL requests that no longer have operator coverage will be canceled. 
460 Q457 if .LOST _COVERAGE 
461 0458 
re 0459 CHECK_OPER_COVERAGE (.0CD); 
46 0460 D; 
464 0461 
7 Bree RETURN (.DISABLED); ! Return the routine value 
467 0464 END; ! End of IMPLICIT_DISABLE 
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001¢ 00000 -ENTRY IMPLICIT DISABLE, Save R2,R3,R4 : 0323 
SE FF78 CE 9E 00002 MOVAB A : 

18 00006 CF €9 00007 BLBC han STATUS+1, 1% : 0385 

51 00006 CF 00000050 &8F C1 0000C ADDL3 { + 0387 
50 04 AC 1¢ ci 00016 ADDL3 #28 RaCB, RO ; 
00006 30 0001B BSBW crugurit “SYSTEMID. EQUAL ; 
03 50 & OOO1E BLBS RO, 1$ : 
OOA2 31 900 1 BRW : 

52 04 aC DO 00024 1$: MOVL  OPER_RQCB + 0394 
04 78 OA 0 E1 909 8 BBC #3, 120(R2), ; 

5 1 DO 0002D MOVL #1. R : 0396 
04 00 0 : 

53 D4 00031 28: CLRL DISAB > 0401 

Oc AE 74 BF 9A 000 ; MOVZBL H ee ESC : 040 

10 AE 14 AE 9€E 000 MOVAB tHARS wart: DESC +4 : 040 

7E 7C 00030 CLRQ $B) + 0404 
146 AE SF 0003F PUSHAB CHAR. DESC : 
7E D4 0042 CLRL ; 
7C Ad 9F 0004 PUSHAB yeh che) : 
000000006 00 0 FB 9047 CALLS #5, SYSSGETDEV : 
0 50 €8 O004E BLBS. RO. 3S 


; Routine Size: 201 bytes, Routine Base: S$CODE$S + O0E1 


1 
OPCSOPERUTIL 1b-se -1984 01:39:19 AX-11 Bliss-32 V4.0-742 Page 13 
vee 1 ~3007 138% 93:38:33 OPCOM SRCIOPERUTIL.B32¢1 9 a) v0 
53 01 1 MOVL #1, DISABLED + 040 : 
14 AE 3 6 4 3$ iss DEV_CHAR + 041 ; 
1E 58 A2 i E1 0 9 BBC #1, 88(R2), 4$ : 0412 ; 
6e g D0 - MOVL m3 ARG_LIST : 041 ; 
04 AE 7c OA H 061 MOVAB 124(R2)7 ARG LIsT+4 + 0419 ; 
08 AE gi D 066 MOVL #1, ARG.LIST? + 0420 : 
E DD 0006A PUSHL SP + 0421 ; 
000000006 00 9F 006 PUSHAB EXESSETOPR : : 
000000006 00 9 FB 00 CALLS 2, SYSSCMKRNL ; 5 
53 1 BO o00re 4$ MOV, #1. DISABLED + 04 
40 a E9 ite 5$: BLBC DISABLED 6$ : $298 : 
78 =A 08 8 00082 BISB2 #8, 120(R2) + 0438 ; 
DD 00086 PUSHL R2 + 0442 : 
OA DD 0008 PUSHL #10 : ; 
7E 01 CE OO08A MNEGL #1, =(SP) : ; 
00006 CF 03 FB 0008D CALLS #3, CLUSMSG_ RQCB_SEND : F 
52 DD 00092 PUSHL R + 0446 ; 
7E 5c} 6A2 «7D 00094 mova Je (Re), -(SP) + 0444 ; 
01 DD 00098 PUSHL #1 + 0443 ; 
00006 CF 04 FB O009A CALLS a4, UPD OPER CONTEXT : ; 
54 50 DO 0009F MOVL Lost eC 3 : 
04 AC 62 OF OO0A2 REMQUE RRS) + 0448 : 
50 04 AC DO OQO00A6 MOVL 36(R0) 3: 0449 F 
52 24 AO DO GOOAA MOVL RO) $ 3 
46 A2 B7 OOOAE DECW 0 t 0456 ; 
50 DD 60081 PUSHL m0 > 0451 ; 
00006 CF 01 FB 00083 CALLS DEALLOCATE_RQCB : : 
07 54 €9 000BB BLBC fost _COVERAGE, -6$ + 0457 ; 
52 OD 000BB PUSHL O¢ + 0459 ; 
00006 CF 01 FB O00BD CALLS CHECK_OPER_COVERAGE : : 
50 53 D0 000¢e 6$: MOVL SISASLES D,~RO + 0462 : 
04 000€ RET : : 
50 D4 000C6 7S: CLRL = RO + 0464 ; 
04 000¢8 RET : ; 
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GLOBAL ROUTINE NOTIFY_LISTED_OPERATORS (RQST_RQCB) = 


lee 
! Functional description: 


Input: 


Implicit Input: 
None. 
Output: 
None. 
Implict output: 


Side effects: 


Routine value: 


RQST_RGCB : Sref_bblock; 


EXTERNAL ROUTINE 
IMPLICIT DISABLE, 
NOTIFY_OPERATOR; 


LOCAL 


E : LONG, 
CURRENT OPER : $ref_bblock, 
NEXT_OPER : Sret_bblock, 


NOTIFIED 
NOTIFIED = FALSE; 


: Sref_bblock, 
LONG, 


ee 


This routine will traverse a List of operators 
(pointed to by the OCD pointed to b 
and send the message associated wit 
operators who are enabled to receive the message. 


the request RQCB) 
the RQCB to all 


RQST_RQCB : Address of a request RQCB 


The message will be sent to the interested operators. 


As part of sending the message, the operators are checked 
to see if they have been implicitly disabled. If so, they 
are removed from the operator List. 


TRUE : If at least one operator was notified. 
FALSE : If no operators were notified. 


Start of NOTIFY_LISTED_OPERATORS 
Request RQCB structure 


Check for implicit disable 
Send a message to a giiven operator 


OCD data structure 

Address of an MCB 

Count of operators on List 
Current operator RQCB 

Next operator RQCB 
Boolean 


Assume no operator notified 
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, Check the request to see if NOBRD is specified. If it is, and the requestor 
! has the proper privileges, return failure without sending the message. 


-$bblock CRQST_RQCB CRQCB_L_OPTIONS], OPC$V_NOBRDJ 


if 
THEN 
IF (.$tblock CROST_RQCB CROCB_L_PRIVMASK1], PRVSV_OPER 
OR ((.RQST_RQCB CROCB_B_SCOPE] EQL OPCSK_GROUP) AND ( 


}) 
. $bblock fRost_race RQCB_L_PRIVMASK1], PRV$V_OPER 
“$bblock CROST"RQCB CROCB~L-PRI 


M 
VMASK1J, PRVS$V~GROU 


fo lelelolelelelolo) 


HEN 
RETURN (FALSE); 
ocD . sROST_ROCB CRocB_L_OCcD); ! Get OCD address 


FUSS SISISISISIIIT 


WW 


WIN —OVONAOUSWN“OOONOUSWN—OOO~ 


: VECTOR (2, LONG); 

= ROCB K SIZE; 

= .ROST RQCB; 

FILE (DESC, ZASCID "OCD address is zero in RQCB"); 


i 
2 OPER_COUNT = .OCD COCD_W_OPERCOUNTI; ! Get count of operators ‘ 
NEXT OPER = .OCD COCD_C_OPERFLINK); ! Get address of next operator in List 
WHILE (.OPER_COUNT GTR 0) DO 
BEGIN 
3 
3 
3 
; 
3 
3 
; 
& 
4 
4 
3 
4 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
; 


i Link to the next operator RQCB. We have to keep the address 
! of the next operator RQCB in case this one evaporates as a 
side effect of IMPLICT_DISABLE. 

CURRENT_OPER = .NEXT_OPER; 

NEXT_OPER = .CURRENT_OPER CRQCB_L_FLINKI; 


Check the request attention mask against the operator's 
enable mask. If an bits in common, then neat oy the operator. 
The message is also sent if a special status bit is set. 


This is an internal hack used to force message output. 
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z 


i 
i] 
iF ((.RQST_RQCB CROCB_L_ATTNMASK1] AND .CURRENT_OPER CRQCB_L_ATTNMASK1]) NEQ 0) 
OR ((.RQST-RQCB CROCB-L-ATTNMASK2] AND .CURRENT-OPER CRQCB~L-ATTNMASK2]) NEQ 0) 
OR (.ROST_RACB CHDR_V~BRDJ) , 
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67 

68 64 IF NOT CIMPLICIT_DISABLE (.CURRENT_OPER) ) 

$° 65 THE 

A 66 BEGIN 

re 68 i Send the message to the operator. The MCB from the RQST_RQCB is 
4, +4 } reused to avoid the overhead of creating a new MCB for each operator. 
75 71 SAVED_MCB = - UBRENT .oPee CRQCB_L_MCB); 

76 2 CURRERT OPER CRQCB_L-MCB) = .ROST-ROQCB CROQCB_L_MCB); 

AA if if NOTIFY OPERATOR (ZCURRENT_OPERD 

79 75 NOTIFIED = TRUE; ! An operator was notified 

o9 6 a CROCB_L_MCB) = .SAVED_MCB; 

82 78 OPER_COUNT = -OPER_COUNT = 1; ' Decrement the operator count 
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OPER, CURRENT 


DUMP_LOG_FILE 
XT 
URRENT 
(R3), 
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\OCD address is zero in RQCB\<0> 


17694747 


-PSECT SPLIT$,NOWRT ,NOEXE,2 
-ADDRESS P.AAB 


-EXTRN NOTIFY_OPERATOR 
-PSECT $CODE$,NOWRT,2 
ENTRY NOTIFY 


-ASCII 


' End of NOTIFY_LISTED_OPERATORS 
. LONG 


! Return routine value 


0OFC 00000 


A2 
A3 


2 64 64 61 
0000G CF 
5C 
60 
28 
00006 
6C 


| eee 
2 20 6€ 69 20 


RETURN (.NOTIFIED); 
24 


3 73 6 
ae) ee 


7 
4 


20 73 69 20 
00 42 


SAVED_MCB 
_OPER) 


IT_DISABLE 
T 


RRENT_OPER) 
108(CURREN 


M 

$ 

is 
CURRENT _OPER 


#1 


i A 
robce 
108(R 
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NOTT 
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RO 
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6C 
; Routine Size: 148 bytes, 


Routine Base: 


dD 2 
OPCSOPERUTIL 16-Sep-1984 01:39:19 AX-11 Bliss-32 V4.0-742 Page 18 OPC 
y0%-000 12-3 08-1 3b 12 36 51 OPCOM. SRCJOPERUTIL B32: 1 . (6). v04 
: 589 0584 1 GLOBAL ROUTINE NOTIFY_OPERATOR (RQCB) = 31 
; 590 0585 4 | 3) 
5 29) 0586 1 !++ : : 1 
3 238 0587 1 ! Functional description: $7 
: 0588 1! 3; 
; 594 0589 1! This routine will send a message to an operator, 3 7 
; 3% 0590 1! be it a terminal or a mailbox. | 5 7 
; 596 0591 1! . 
; 597 bo36 1 ! Input: 3 7 
; 598 0593 1! 31 
: 599 0594 1! RQCB : Address of an operator RQCB : 1 
: 600 0595 1! ; oh 
; 601 0596 1°! Implicit Input: 5 1 
; 60 0597 1! 31 
; 60 0598 1! The RQCB points to an MCB that describes the message. 3 1 
: 604 0599 1! 31 
s 605 0600 1 ! Output: 3 1 
; 606 0601 1! s 1 
: 607 0602 1! None. | $1 
; 608 0603 1! ‘ 3:7 
; 609 0604 1! Implict output: $7 
; 610 0605 1! | 37 
: 611 0606 1! A message is sent to the operator. $1 
; 612 0607 1: 71 
; 613 0608 1 ! Side effects: s% 
; 614 0609 1! 5.1 
; 615 0610 1! If the operator device is a mailbox, the message 21 
> 616 0611 1! may be truncated if the mailbox buffer size is not 31 
; alt Re : Large enough to hold the entire message. : : 
: 619 0614 1 | Routine value: | 37 
; 620 0615 1! 3 7 
; 621 0616 1! TRUE : If success | a Y 
: 622 0617 <anything else> : If the message could not be sent | : . 
> 624 0619 2 BEGIN ! Start of NOTIFY_OPERATOR | 31 
: 625 0620 2 3 7 
3; 626 0621 2 MAP 3 
: 627 0622 2 RQCB : Sref_bblock; ! Operator RQCB structure | 3:1 
: 628 0623 2 | 31 
3 629 0624 2 LOCAL 3 7 
; 630 0625 2 CD : $Sref_bblock, ! OCD data structure -1 
; 631 0626 2 MSG_SIZE ORD, ! Size of message to operator 3 
: O36 0627 § MBX” CHANNEL : WORD, ' Channel to operator mailbox zg 1 
; 63 0628 10SB : $bblock (8), ' 1/0 status block 3 1 
; 634 0629 2 MCB : $ref_bblock, ! MCB data structure 3 1 
; 635 0630 § STATUS : LONG; 3 1 
; 636 0631 3 1 
: 637 b63¢ a cae | 
3 o38 bos? : If there is no MCB connected to the RQCB, then return an error status. : 
: 640 0635 2 MCB = .RQCB [ROCB_L_MCB); | 31 
3; 641 0636 IF .MCB EQL 0 3 | 
; O46 st 4 THEN s | 
; 64 0638 RETURN (FALSE); 3 1 
3 644 0639 ‘ ; : — eae 3 | 
; 645 0640 ' Check the request to see if NOBRD is specified. If it is, and the requestor zg | 
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} has the proper privileges, return failure without sending the message. 
if aSublock CRQCB CRQCB_L_OPTIONSJ, OPC$V_NOBRDJ 


IF (,$bblock CROCB CROCB_L_PRIVMASK1], PRVSV_OPE 
OR ((.RQCB CROCB_B_SCOPE] EQL OPCSK_GROUP) AND ( 


$-32 
OPER 


mam 


) 
$bblock Roce FROCB_L_PRIVMASK1], PRV$V_OPER]) 0 
$bblock CROCB CROCB"L~PRIVMASK1], PRV$V~GROUPJ)) 


THEN 
RETURN (FALSE); 


i If the operator is on another node, then pretend that we notified the operator. OPCOMRQST uses the 
value to determine if a request can be fielded. 


if gSLOBAL_STATUS CGBLSTS_K_IN_VAXc Luster] 

Z wd CLUSUTIL_SYSTEMID_EQUAL (RQCB CRQCB_T_SYSTEMIDJ, LCL_NOD CNOD_T_NODE_SYSTEMIDJ) 
RETURN (TRUE); 

Send the message. How it is sent depends on the device type. 


if .RQCB COPRSTS_V_TRMJ 
OR .RQCB COPRSTS-V-REMTRMJ 


HEN 
BEGIN 


i The operator device is a terminal or remote terminal. 
Send the message via S$BRKTHRU 


REPLYBRD_BRKTHRU_QUEUE ( 
MCB CMCB_L_TEXTLEN) 


& P ! Message to send 
RQCB CROCB'L_OPER_LEN), ! 


Target (operator device name) 


' 
' 
BRKSC_DEVITE; ! Type of target 
32, cerriage control 
° ' Flags 
BRKS$C_OPCOM, } tyet of requestor 
0,0,0,0,0); ! No completion routine or arguments 


RETURN 1; 


LSE 
IF .ROCB COPRSTS_V_MBX) 
THE 
BEGIN 
i The operator device is a mailbox 


! Send the message via $Q10. If the mailbox is 
too small, truncate the message to fit. 


MSG_SIZE = .MCB CMCB_L_TEXTLEN]; t Assume mailbox big enough 
IF °MSG_SIZE GTR .ROTB™CRQCB_W_MBXSIZEJ ! Is message to big’? 
MSG_SIZE = .RQCB CRQCB_W_MBXSIZE); ! Yes, truncate message 


IF NOT (STATUS = SASSIGN gor = MBX _ CHANNE 


L : pastas a channel to the operator device 
EVNAM = ROCB CROCB_L_OPER_LEN] 
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H 03 98 ; RETURN (.STATUS); 

: 705 P 700 4 IF (STATUS = S$QIOW (FUNC = (IOS_WRITEVBLK OR IOSM_NOW), ! Send the message 
; P0701 4 CHAN = .MBX_CHANNEL, 

; 707 P Bo 08 4 10SB = {OSB, 

; 708 P0705 4 Pi = .MCB CMCB_L_TEXTPTRI, 

; 709 P0706 4 P2 = .MSG_SIZE~ 

; 710 705 4 ») 

s 7ii TR8 THEN 

3 ats 1444 STATUS = .1058 (0,0,16,0]; ! Get actual I/0 operation status 
; 716 4 geassen (CHAN = .MBX_CHANNEL); ! Deassign channel to operator device 
s 15 710 RETURN (, STATUS) : i Return the appropriate status 

: 716 0711 NC; 

tepals Bete ‘ 

; 718 071 i If we get this far, it means that the device is not a 

; 719 0714 i Legal operator device, and that the message cannot be sent. 

: 730 0715 i Return an error status. 

: 721 0716 

3 rs¢ 0717 RETURN (FALSE); 

, iz 0718 

; 726 0719 1 END; ! End of NOTIFY_OPERATOR 


-EXTRN SYSSASSIGN, SYS$Q10W 
-EXTRN SYSSDASSGN 


ao i Save R2,R3,R4 
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OPCSOPERUTIL 18-56 -1984 01:39:19 AX-11 Bliss-32 V4.0-742 Page 21) 
yOL +000 e78ep- 1982 93:88:57 — YOBcom. BacSbpcaut ti aso. oe 3} 
58 78 =A2 02 €1 68 7$: BBC #2, 120(R2), 11$ : 0681. 
54 30 it} B0 Oep OVW ‘fimeés nsg SIZE : ety 
7A 2 34 Bi f CHP M20SIZE, 122(R2) + 0690 | 
54 7A 2 90 2 mOVW 3 0¢n2), MSG_SIZE : 0692 
7E 7C 0007B 8$: CLRQ  =(SP) : 0696 | 
8 Ag 9F 00C7D PUSHAB BX CHANNEL : 
C Ad OF 80 FUSHAB 124TR2) : 
000000006 99 4 FB 000 CALLS #4, SYSSASSIGN F | 
9 DO O008A MOVL RO, STATUS : 
4 t 008D BLBC STATUS, 10$ : | 
—E 7C 990 CLRO = =( SP) : 0705 | 
7E 7 0009 CLRQ = =(SP) : 
7E 54 3C 00094 MOVZWL so SIZE, -(SP) : 
34 AB BD 097 PUSHL  52(ACB) ; 
7E 7C OOO9A CLRQ.  =(SP) : 
4 AE OF 9009¢ PUSHAB 10SB : 
7E 0 8F 3 O09F MOVZBL #112, -(SP) g 
7E 28 A C COOA? MOVZWL MBX_CHANNEL, -(SP) : 
7E D4 OO0UuA? CLRL = (SB) : 
000000006 00 of FB QOOA9 CALLS #12, SYS$QI0W : | 
52 6 DO 90080 MOVL » STATUS : 
04 52 €9 0008 BLBC ATUS, 9$ : 
52 04 AE 3C 00086 MOVZWL I0SB, $TATU + 0707 
7E 6E 3C OOOBA 9S: MOVZWL MBX_CHANNEL, -(SP) : 0709 
000000006 00 01 FB 000BD CALLS #1, SYSS$DASSG : 
50 52 D0 000C4 10$: MOVL STATUS, RO : 0710) 
04 000C RET r 
50 D4 000CB 118: CLRL RO : 0719 
04 OOOCA RET : 


; Routine Size: 203 bytes, Routine Base: SCODE$S + 023E 
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; f $ 4 9 } GLOBAL ROUTINE OPERUTIL_CLM_IMP_DISABLE (BUFFER_DESC : bet shied CLM : $ref_bblock, LEN) : NOVALUE = 
: 728 7 ¢ 1 te¢ 

; f 2 Z : Functional description: 

3 ¢ 1 bf 5 : } This routine processes an implicit disable request from another node. 
° . | 
3 f : Bf ? : } Input: 
; 735 0729 1! BUFFER_DESC = pointer to peasene from remote node, including SSNDOPR header 
aM 0730 1! CLM - ointer to CLMRQCB structure 
s for 8 , 3% LEN = ength of LEN 
; 738 7 § 1! 
; 739 07 1! Implicit Input: 
: 740 0734 1! 

3: 741 0735 1! None. 

s 76 0736 1! 

3: 76 0737 1 ! Output: 

: 744 0738 1! 

; 745 0739 1! None. | 
: 746 0740 1! 
; 747 0741 1°! Implict output: 

3; 749 0745 1! None. 

: 750 0744 1! 

s 751 0745 1! Side effects: 
: ree 0746 1! | 
es a 0747 1! y the operator has been implicitly disabled, and is not | 
s 56 0748 1! a@ permanent operator, then the operator will be disabled 
3 P23 54 : without a disable message being sent to the operator. 

s for 0751 1 ! Routine value: 

; 758 8736 1! 

; 759 0753 1! TRUE : If the operator is disabled 

; 760 0754 1! FALSE : If the operator is still enabled 

: 761 0755 1 !-- 

; r6¢ 0756 1 

3; 76 0757 BEGIN ! Start of OPERUTIL_CLM_IMP_DISABLE | 
: 764 0758 

: 765 0759 3 EXTERNAL ROUTINE | 
3; 766 0760 LUSMSG_CONV_CLM_RQCB, ! Convert message to RQCB 

: 767 0761 ChE CK_OPER_COVERAGE ' Check coverage. for requests 
: 768 076¢ DEALLOCATE~ ROCB : NOVALUE, i Dispose of an RQCB | 
; 769 76 DUMP_LOG_ FILE ' Place random string in lo 
3 gry Se UPD. OPER-CONTEXT: ! Update an operator contex 

. Fr 766 LOCAL 
s @ 076 OUND Lone } found the operator 
: 774 3768 LOST_COVERAGE : Lowe ! Boo 
s 775 8 DEV_CHAR : bblock COIBSK -LENGTH], ' Device characteristics buffer 
3; 776 o7 0 CHAR_DESC : $desc_block, bev. char. buffer descriptor 
3 777 771 0 : Sref “sblock k, i OCD data structure 
: 778 8558 OPER_ROCB : $ref—bblock, ' RQCB data structure 

; 779 77 ROCB : oret. _bblock, ' RQCB data structure 

; 780 774 DISABLED : LONG ' Boolean 

: rt 4 ARG_LIST : VECTOR (33; ! Arguement List for EXESSETOPR 
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783 

7 i Check the version number of the message. If the message is from any other version, 
f 5 simply ignore it. 

f 4 OO at CCLM_B_DS_VERSION] NEQ CLMRQCB_K_DS_VERSION 

ha RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASCID ‘CLM__OPRENABLE mismatch'); 


Allocate an RQCB and convert the message RQCB into the new ROQCB 
iF NOT CLUSMSG_CONV_CLM_ROCB (.CLA, RQCB) 
RETURN DUMP_LOG_FILE (.BUFFER_DESC, ascid_INVALIDRQCB); 
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-PSECT SPLITS,NOWRT ,NOEXE ,2 


20 45 4C 42 41 4E 45 ASCII \CLM__OPRENABLE mismatch\<0> 


00024 P.AAD: 
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Page 6 


; 791 

:; 79 

; 79 

: 794 

: RR 

; 797 See if the operator is already known to OPCOM. This entails scanning down the eRecerL ce operator 
; 798 List and senpar sng the device names for equality. FIND_OPERATOR will set racB C 
; 799 0 finds a matc 

; 800 079 

; 801 079 FOUND = FIND wats: (.RQCB, OPER_RQCB); 

3 4 tas EALLOCATE_ROCB (.RQCB); ! Don't need this any more 

; 804 079 The operator has been disabled on the remote node, remove it from the operator List. 
; 805 079 Do not notify anyone of the disable. After doing the disable, 

§ o08 be 7 check to see if any requests have lost operator coverage. 

; 808 080 if . FOUND 

; 809 080 THEN 

; 810 080 BEGIN 

s 861i 0805 LOST_COVERAGE = UPD_OPER_CONTEXT (TRUE, o the disable 
; 812 080 H OPER -RQCB CROCB_L _ATINWASR ID 

; 813 0807 -OPER_ “RQCB CROCB- a “ATTNMASK2J, 

3 6814 0808 -OPER_RQCB 

3 815 0809 3 

; 816 0810 REMQUE (. yy arace oer -ROCe); Ronoye RQCB from operator List 
; 817 0811 ocd = .OPER_ROCB cRace et 4000 address 

; 818 OB1¢ D COCD_W Op PERCOUN S72 2 -$tD Joc. W OPERCOUNT}” - 

: 3}? Oaiz DEALLOCATE- -RQCB (.OPER_RQCB); tase of the RQCB 

3 Gel 0815 If operator coverage was lost due to the disable, check all 

: ase 0816 i Sypstanding reuquests queued to this OCD for operator coverage. 

3 aS? HEA ALL requests that no longer have operator coverage will be canceled. 

: 825 dh if -LOST_COVERAGE 

; Bs§ $854 CHECK_OPER_COVERAGE (.0CD); 

; 828 pes¢ END; 

3 $3 08 

3 3 base RETURN; ' Return the routine value 

3 $32 0826 ! End of OPERUTIL_CLM_IMP_DISABLE 
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; Routine Size: 125 bytes, Routine Base: S$CODE$ + 0309 
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OPCSOPERUTIL 1b-se =1984 01:39:19 AX-11 Bliss-32 V4.0-742 Page 24 
Obs 2008 Versee= 138s Pb ebiy | POM ek isso ae ve OE Se, ° tae 
1060017. 0003C P.AAC: .LONG 17694743 ; : 
Bo960000" 9004 ADDRESS P.AAD ; | : 
.EXTRN CLUSMSG_CONV_CLM_RQCB ; 
«EXTRN ASCID_INVALIBROCB ; 
-PSECT $CODE$,NOWRT,2 : 
009¢ 909 .ENTRY OPERUTIL_CLM_IMP_DISABLE, Save R2,R3 : 0720 : 
5 FF70 CE : 00 MOVAB =-144(SP)> SP : ; 
5 0 AC Dd 0000 MOVL CLM, R2 + 0781 : 
0 02 =A 94 9008 CMPB (RO), #2 : ; 
06 1 OF BEQL ; $ 
0000" CF 9F 00011 PUSHAB P.AAC : 0783 ; 
10 11 00015 BRB : F 
4004 8F 6B 00017 1$: PUSHR #*M<R2,SP> + 0787 ; 
00006 CF 08 FB 001B CALLS #2, CLUSMSG_CONV,CLM_ROCB : ; 
OD E 9020 BLBS : : 
00006 CF SF 000 PUSHAB ASCID_INVALIDRQCB + 0789 ; 
04 AC DD 00027 28: PUSHL BUFFER DE : ; 
00006 CF 02 FB 00 A CALLS #2, DUMP_LOG_FILE ; : 
04 AE 9F 000 9 3$: PUSHAB OPER_RQCB + 0795 : 
04 AE DD 0003 PUSHL RQ : : 
FDID = CF 98 FB 00036 CALLS #2, FIND_OPERATOR ; : 
52 50 pO 00038 OVL RO. FOUND : ; 
6E DD 0003E PUSHL + 0796 : 
0000G CF 01 FB 00040 CALLS #1, DEALLOCATE_RQCB : 3 
34 52 £9 00045 BLBCOséF ; : 0802 : 
52 04 AE DO 00048 OPER_RQCB, R2 : 0808 F 
52 DD 0004C PUSHL : : 
7E 5c =6A2 «7D OO04E 92(R2), -(SP) + 0806 : 
01 DD 0005 PUSHL #1 + 0805 3 
00006 CF 04 FB 00054 CALLS #4, UPD_OPER_CONTEXT ; ; 
53 50 pO 00059 MOVL RO, LOST_COVERAGE 3 ; 
04 AE 62 OF 0005¢ REMQUE (R2), OPER_ROCB : 0810 : 
50 04 AE DO 00060 MOVL OPER RQCB,~RO > 0811 : 
52 24 AO DO 00064 MOVL 36(RO), OCD ; 3 
46 Ag B7 00068 DECW  70¢oCcDdS ; 0812 ; 
50 DD 00068 PUSHL R : 081 : 
00006 CF 01 FB 6006p CALLS #1, DEALLOCATE_RQCB ; : 
07 53 €9 000 é BLBC = LOST_COVERAGE, ~4$ : 0819 : 
52 DD 0007 PUSHL 0 : 0821 : 
00006 CF 01 FB 0077 CALLS #1, CHECK_OPER_COVERAGE ; : 
04 0007C 4$: RET > 0826 : 
| 
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$ ¢ 68 ‘ ! GLOBAL ROUTINE UPD_OPER_CONTEXT (DISABLE, MASK1, MASK2, RQCB) = 

; : 08 1 44 

3 i 88 , : Functional description: 

3 H 9 08 ¢ 1! Update the OCD count vector for each bit —— in the bit mask. 

; 840 08 1! The count will be decremented for a DISABLE, incremented for an ENABLE. 
: 841 0834 1! Also update the OCD operator intrest mask, and the corresponding intrest 
s 84 0835 1! mask in the operator RQCB. This must be done in two loops, due to 
: 8&4 08 § a BLISS's inability to cope with a bitmask of more then 32 elements. 
: 844 08: 1! Also note that the code could be more compact, but I traded that 

; 845 ttt 1! for readability. 

: 846 1! 

; 847 0840 1 ! Input: 

; 848 0841 1! 

; 849 944 7 | DISABLE : A boolean ¥3 (ue that declares whether this is an ENABLE or DISABLE. 
; 850 0845 1! MASK1 : The first bits of an operator attention mask. 

s 831 0844 1! MASK2 : The second 32 bits of an operator attention mask. 

3 S26 0845 1! RQCB : Address of an operator RQCB. 

3 8 0846 1! 

3; 854 0847 1°! Implicit Input: 

; 855 0848 1! 

; 856 0849 1! None. 

3; 857 0850 1! 

; 858 0851 1 ! Output: 

; 859 peg 1! 

; 860 0855 1! None. 

: 861 0854 1! 

; 86 0855 1 ! Implict output: 

: 86 0856 1! ; 

; 864 0857 1! The operator context contained in the RQCB 

; 865 0858 1! and the appropriate OCD is updated. 

; 866 0859 1! 

3; 867 0860 1 ! Side effects: 

; 868 0861 1! 

: 869 pees 1! None. 

s 870 0863 1! 

: 871 0864 1 ! Routine value: 

s 87 0865 1! 

3; 87 0866 1! TRUE : If an element of the countvector went to 0 

3; 874 0867 1! FALSE : If no element of the countvector went to 0 

3 37? 0868 1 !-- 

; 876 0869 1 

3 As ba59 2 BEGIN ! Start of UPD_OPER_CONTEXT 
; 879 bBc8 MAP 

; 880 087 RQCB : Sref_bblock; ! Operator RQCB 

: 881 babe 

; 88 875 LOCAL 

; 88 087 ocD : Sref_bblock, ! OCD data structure 

3; 884 087 K : LONG, ! Index into enablecount vector 
> 885 087 TRANS! TION : LONG ! Boolean : 
; 886 087 ENABLE _MASK : BITVECTOR (32), ' ENABLE/DISABLE control bits 
; 887 gee CHANGE _BITS1 : LONG, ! ditto 

: Hy 1? CHANGE _BITS2 : LONG; ! ibid 

; 890 BB TRANSITION = FALSE; 
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: 891 4 IF .DISABLE : 
é 4 5 THEN ‘ 
; 89 § BEGIN : 
: 894 08 ! ; 
: 344 tt This is a DISABLE request. Determine the bits to clear. ‘ 
; 897 0890 CHANGE -BITS1 = .RQCB CRQCB_L_ATTNMASK1]) AND .MASK1; ; 
; 898 0891 CHANGE-BITS2 = .RQCB CROCB- +t “ATTNMASK2) AND -MASK2: : 
; 899 94 N 3 
s 900 089 ELSE : 
; 901 0894 BEGIN ; 
; 90 bage ! ; : 
3 pat Baas This is an ENABLE request. Cetermine the bits to set. : 
; 905 0898 CHANGE -BITS1 = (NOT .RQCB CRQCB_L_ATTNMASK1]) AND .MASK1; ; 
; 906 0899 CHANGE_BITS2 = (NOT .RQCB CRQCB_L-ATTNMASK2]) AND -MASK2: : 
; 907 0900 END; : 
; 908 0901 ; 
; 909 090 ! ; 
; 910 090 ' Get the OCD address and do the update. , 
; «911 0904 2! 3 
; 912 0905 OCD = 2 chars t ocd); ' Get ore address ; 
; 913 8306 ENABLE. CHANGE 8 17s1 Get first 32 bits ; 
: 9146 090 INCR J PROM OT 3 
s 915 0908 IF .ENABLE TRASK C.J] ; 
; 916 0909 2 THEN : 
; 917 0910 IF .DISABLE : 
8 BH “4 3 
; 920 $318 ; RQCB_CROQCB_L cy poe Pg -RQCB fog. L_ATTNMASK1] AND (NOT - dd) b 
3: 921 0914 OCD Coep _W7ERABLECOUNT (.J)] = COCB_W_ENABLECOUNT (.J)] = 1; 3 
; ace 0915 4 IF (.0CD-COCO_wW_ ENABLECOUNT (. 39 Oot 0)~ F 
: 92 0916 3 THEN’ 3 
3; 924 0917 4 BEGIN 3 
3; 925 0918 4 TRANSITION = TRUE; 3 
; 926 0919 4 OCD COCD_L_AT TTNMASK1] = .OCD COCD_L_ATTNMASK1] AND (NOT (1*%.J)); 3 
: 927 0920 3 END; 3 
; 928 0921 3 END 3 
; oEe 092 § ELSE 3 
; 930 09 BEGIN F 
3 33) 0924 3 RQCB CROQCB_L pyri AF = -ROCB ee L_ATTNMASK1] OR 2 a : 
; 237 $ : 
: 33¢ 8 8 ; 
3; 936 0929 ENABLE_MASK = s CHANGE BITS2; ! Get second 32 bits 3 
3: 937 0930 INCR J-FROM 0 TO 31 3 
; 938 0931 IF .ENABLE TMASK cada 3 
; 939 $336 THEN F 
; 940 9 BEGIN $ 
3; 941 9 K = .J + 32; . 
; 94 935 IF .DISABLE 3 
; 94 9 THEN $ 
3 944 HY 4 BEGIN : 
; «945 938 4 RQOCB CROCB_LA ALIASES = ,RQCB CROC CBate L_A oleae ye. AND ed ag" ‘th 3 
3: 946 3444 4 QCD COCD_W-ERABLECOUNT (.K)] = "59 Po D COCB_W_ENABLECOUNT (.K)) - 3 
3 947 940 5 IF (.0CD-COCD AB ENABLECOUN NT ¢ EQL 0)~ 3 
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-OCD COCD_L_ATTNMASK2] AND (NOT (1*%.J)); 


§k2] = 
] 

) 
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= TRUE; 
_ATTNMA 


THEN 


RETURN (. TRANSITION); 
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GLOBAL ROUTINE VALID_OPERATOR (BUFFER_DESC, RQCB) = 


le4 
! Functional description: 


of being an operator device. 


the 
Input: 


ture. 


Implicit Input: 
None. 
Output: 
None. 
Implict output: 
None. 
Side effects: 


is created within the RQCB. 
Routine value: 


BEGIN 
MAP 
BUF FER_DESC : Sref_bblock, 
RQCB : Sref_bblock; 
EXTERNAL 
DEVICE_FAO : $bblock; 
EXTERNAL ROUTINE 
SHARE _FULL_DEVNAME ; 
LOCAL 


ARG_LIST : VECTOR (4), 


ax 


This routine will make sure that the device 
specified in the user's request is capable 
ide effect 
of this routine is to create an operator 

name descriptor within the RQCB. t 
the operator device name is formatted in such 
a wy as to make for easy string compares in 

u 


evice 


BUF FER_DESC : Address of string descriptor that points 
to the user's request message. 
ROCB : Address of an RQCB data structure. 


A string descriptor of the validated operator device name 


TRUE : If the device is a valid cperator device | 
FALSE : If the device is not a valid operator device. 


Start of VALID_OPERATOR 


' ve "s request descriptor 


er's 

QCB data structure 

FAO control string descriptor 
Expand device name 


Arguement List structure 


< 
oO 
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| 3 
OPCSOPERUTIL 1$-sep-19 4 AX-11 8B 2 0-742 
v04-0 R . 


1:39:19 Liss-32 V4.0-74 Page 30) 
4-000 14-Sep-1984 93:36:54 OPCOM. SRCJOPERUT IL 8325 1 : (9) vor 
; 1023 1913 ARB Sbblock CARBSK_LENGTH],! Access rights block : 
> 1024 1016 MSG : eres bbl oc : Pointer to user request ‘ 
: 1025 1017 DEV_ CHAR : $Sbblock D16$k LENGTH], ! Dev. char. buffer : 
; 1888 1018 CHAR_DESC $desc_ block, : Dev. char. buffer descriptor : 
; 1027 1019 FULL DESC $ref_Bblock, ' Descriptor for expanded name : 
; 1028 1020 OPR_RAM_BU $bblock CMAX_DEV_NAM],! Oper. device name buffer . ; 
; 1068 1021 OPR_NAM_DESC $desc_block, ! Oper. dev. name buffer descriptor : 
; 1030 13 ¢ US LONG : 
3 1936 1024 ! See if the requestor is issuing this request in another's behalf. ; 
: 103 1025 : If, and the requestor does not have the privilege to do so, then | ; 
3 1034 1026 ! return FALSE. Allow the request if the requestor has OPER pivilege, ; 
: 1035 1027 ! or the GROUP field of the UIC's are the same and the requestor has : 
: 1036 13 8 } GROUP privilege. | . 
: 1038 1980 IF .RQCB CRQCB_L_SENDERUIC] NEQ .RQCB CRQCB_L_UICI ‘ 
: 1039 1031 ¢ THEN : 
; He IRs 1f 4 ot -Sbblock CRQCB CRQCB_L_PRIVMASK1], PRVS$V_OPER]) : 
: 1042 1034 5 IF NOT ((.$bblock CRQCB CRQCB_L_SENDERUIC], 2,0,16,0] EQL .$bblock CRQCB CROCB_L_UICJ, 2,0,16,0]) AN) : 
> 1043 1035 3 (.{$bblock CRQCB CROCBIL~PRIVMASK1], PRV$vV_GROUP)) | ; 
3: 1044 1036 2 HEN $ 
3 1045 1037 2 RETURN (FALSE); : 
: 1046 1038 2! r : 
: of 4 Fe § } Create a descriptor for the operator device name. ; 
3 1049 1041 2 MSG = .BUFFER_DESC CDSCSA_POINTER] + OPCSK_COMHDRSIZ; ; 
: 1050 ek 2 OPR_NAM_DESC [0,0,32,0] = .$bblock CMSG COPC$T OPRENABLE_OPRIJ, 0,0,8,0); ; 
3 Wes ok § OPR_NAM_DESC CoSc$A_POINTER] = MSG COPC$T_OPRENABLE_OPR]™+ 1; ; 
; 1053 1045 2 ! Create a buffer descriptor and get the device : 
5 Ht ines § : characteristics of the operator device. : 
: 1056 1048 CHAR_DESC (0,C,32,0] = DIBSK_LENGTH; F 
; 1057 1049 2 CHAR-DESC CDOSCSA_POINTER] = BEV. CHAR; : 
; ts 4 ae 3 ay (STATUS = $GETDEV (DEVNAM=OPR_NAM_DESC, PRIBUF=CHAR_DESC)) | : 
; 1060 1052 2 RETURN (.STATUS); ! There is no such device 3 
: 1061 1053 2! : : 
: 1062 1054 2 ! Check the device type. The device must be a | : 
3 ine? Wee § } terminal, remote terminal, or mailbox. | : 
° . | e 
: 1065 1057 2 IF (NOT .$bblock CDEV_CHAR CDIBS$L_DEVCHAR], DEV$V_TRM]) AND | ; 
: 1998 1938 (NOT .$bblock CDEV_CHAR CDIBSL_DEVCHARIJ, DEV$V_MBX]) : 
; 1068 1060 RETURN (FALSE); : 
: 1069 1061 : ; ‘mg : 
; 1070 1906 ! If the device is a mailbox, then indicate such : 
; 1071 106 ! and save the device buffer size. The requestor ; 
: 108 H+ ¢3 must have read and write access to the mailbox. : 
: 1074 1066 IF .$bblock CDEV_CHAR CDIBS$L_DEVCHAR], DEV$V_MBX) ; 
: 1075 1067 THEN 3 
: 1076 1068 BEGIN 3 
3; 1077 1069 RETURN (FALSE); : 
: 1078 1070 ! : 3 : : 3 
3; 1079 1071 ! The mailbox as operator implementation is not complete. Tie off this code by : 


» 3 
OPCSOPERUTIL 16-Sep-1984 01:39:19 AX=-11 Bliss-32 V4.0-742 Page 31 OP 
yO%~000 12286871382 12 35 51 OPCOM. SRCJOPERUTIL.B32:1 ’ a) voi 
; 1080 1078 ! commenting it out. | : 
; 1081 107 : ‘ 
3 1056 1074 } RQCB COPRSTS_V_MBX] = TRUE; ! Mark OPER as MBX ‘ 
H et O02 ROCB ROCB_W-MBXSIZE] = .DEV_CHAR CDIB$W_DEVBUFSIZ3;! Save MBX size | ; 
; 1085 10797 : ! The following code is a workaround until a GETACCess ; 
3 1059 ta: } system service can be written. Check for R/W access. | : 
; 1088 1080 : CHSFILL (0, ARBSK_LENGTH, ARB); ! FILL with blanks _— ‘ 
; 1089 1081 3 | (ARB CARBSQ_PRIVJT = .RQCB CROCB_L_ATTNMASK1]; | Build a dummy ARB | ; 
; 1090 1058 : {ARB _LARB$Q PRIVJ+4) = .RQCB CROCB_L_ATTNMASK2); : ’ 
: 1091 108 i ARB CARBEL_OIC = .RQCB CROCB“L-UICI; Bae ; | : 
$ 109§ 1084 H ARG_LIST = ! Build an argument List ‘ 
; 109 1085 ; ARG_LIST = ARB; ! Address of ARB | : 
; 1094 1086 : ARG_LIST = .DEV_CHAR CDIB$W_VPROT); ' Volume protection mask ; 
: 1095 1087 3! ARG-LIST = .DEV-CHAR CDIBSL-OWNUIC); i Volume owner ; 
; 1096 1088 ; IF NOT (STATUS = $CAKRNL (ROUTIN=EXESCHKRDACCES, ARGLST=ARG_LIST)) ‘ 
: 1097 1089 ; OR NOT (STATUS = SCMKRNL (ROUTIN=EXESCHKWRTACCES, ARGLST=ARG_LIST)) ‘ 
; 1098 1090 : THEN : 
; 1099 1091 : RETURN (.STATUS); ! No R/W access ; 
; 1100 136 2 END; ; 
; 1101 1093 2! ' 
; 1102 1094 2! : ‘ : 
: 1103 1095 2! If the device is terminal, mark it as such. If it is : 
3 1104 1096 2 ! a remote terminal or a dial-in terminal, then mark it ; 
; 1105 1097 § ! as a remote terminal. ‘ 
: 1106 1098 : : 
: 1107 1099 2 ! NOTE: THE METHOD OF DETERMINING IF A TERMINAL IS : 
: 1108 1100 2! A REMOTE TERMINAL MAY CHANGE OVER TIME. : 
; 1109 1101 2! | : 
: 1110 1108 @ | | ; 
3: 1111 1103 2 IF .$bblock CDEV_CHAR CDIBSL_DEVCHAR], DEV$V_TRM] : 
> 1112 1104 2 THEN : 
> 1113 1105 2 IF .$bblock CDEV_ CHAR DIBSL_DEVCHAR], DEV$V_MNTJ | : 
; iii 1189 § OR .$bblock CDEV_CHAR CDIBSL_DEVDEPEND], TT$V_MODEM] ‘ 
: 1116 1108 2 RQCB COPRSTS_V_REMTRM] = TRUE | : 
3.1117 1109 2 ELSE | : 
: 1118 1110 2 RQCB COPRSTS_V_TRM] = TRUE; : 
3; 1119 117 2} : ; 
: 1120 1112 2 ! Format the operator device name from the info : 
3 1121 1115 2 ! im the device characteristics buffer. ALl operator | ; 
3 1122 1114 ! devices known to OPCOM have their operator device : 
: a 1115 ! names formatted here, so that they are in a consistant : 
ie ane | 
: 1126 1118 OPR_NAM_DESC £0 0,32,0] = MAX_DEV_NAM; ! Create an output string descriptor 
> 1127 1119 2 OPR-NAM-DESC CDSC$A_POINTER] = OPR_NAM_BUF; i | 
3: 1128 P 1120 IF NOT TSTATUS = SFAO (DEVICE_FAO ' Format the operator device name 
> 1129 P 1121 OPR_NAR_DESC, i 
: 1130 Pp 1166 OPR_NAM_DESC, : 
3; 1131 P 11 DEV-CHAR + .DEV_CHAR SDEStU_DEWUANOF TS. 
: 1136 P 1124 -DEV_CHAR CDIBSQ_UNIT 
3 115 1125 )») 
3 1134 11 § THEN 
3; 1135 11 RETURN (.STATUS); 
: 1136 1128 ! 
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3 1138 1} 2 i, Expand the name to the full name 
: 1139 1131 ESC = SHARE FULD DEVNAME (OPR_NAM_DESC, DVIS ;FULLDEVNAM) ; 
: 1140 i ; Race RQCB_L_OPER-LEN FULL_DESC”COSCS$W_ math 
: 114 1134 i Create a string descriptor for the formatted 
3 1148 1 2 operator device name, Cithin the RQCB. | 
: 1145 FI f iF NOT (STATUS = OPCSGET_VM (RQCB CROCB_L_OPER_LENJ, ROCB CROCB_L_OPER_PTRI)) 
5 1167 1139 RETURN (.STATUS); 
: 1148 1140 ' 
3 He 4 1142 Copy the operator device name to the new buffer. 
° | 
: 1151 114 cHSMOVE (, Race Croce L_OPER_LEN] 
; 1138 1144 FULL_DESC [DSC$A POINTER], 
: 115 1145 *RQCB -Phate _L_OPER_P 
> 1154 1146 
: 1155 1147 RETURN Thue) ; 
: 1156 1148 | 
: 1157 1149 1 END; ! End of VALID_OPERATOR | 
EXTRN DEVICE_FAO, SHARE_FULL_DEVNAME 
EXTRN SYS$FAO, OPC$GET T_0M 
003¢ 00000 ENTRY VALID OPERATOR, Save R2,R3,R4,R5 ; 0958 
5E FEBS CE 9€ 00002 MOVAB -332(SP), SP : 
52 08 AC DO 00007 MOVL  RQCB, R2 > 1030) 
51 38 A2 9E 00008 MOVAB 56(R2), R1 : | 
50 68 A2 YE 0000F MOVAB 104(R25, RO : 
60 61 D1 00013 CMPL (R1), (RO) : 
13 13 00016 BEQL 46 3$ F 
OE 32 A2 02 €0 00018 BBS #2, 50(R2), 3$ : 1032 
02 Ad 02 Al 861 0001D CMPW 3=s« 2 (R11), 2(RO) > 1034 
03 13 60022 BEQL 2$ ; 
00BB 31 00024 1$: BRW 9$ ; 
F9 31 A2 €E9 00027 es: BLBC 49(R2), 1$ > 1035 
50 04 AC 00 00028 3$: MOVL BUFFER DESC, RO > 1041 
50 04 AO 26 C1 O002F ADDL3 #38, 4TRO) » ass : 
6E 1A AO 9A 00034 MOVZBL 26(MSG), OPR DESC : 1042 
04 AE 1B AO 9E 000 OVAB  27(RO), OPR_RAM DESC+4 > 104 
48 AE 74 BF OA 99 MOVZBL #116, CHAR_BESC > 1048 | 
4C AE 50 AE 9E 0004 OVAB DEV_CHAR meyt: _DESC+4 > 1049 
7E 7¢ 004 CLRQ = = (SP) : 1050 | 
50 AE 9F 00049 PUSHAB CHAR DESC ; | 
7E D4 0004C CLRL = (SPY F | 
10 AE 9F OO04E PUSHAB OPR_NAM ; | 
000000006 00 FB 00051 CALLS #5, ~SYSSGETDEV ; | 
54 0 pO 00058 MOVL RO STATUS : | 
74 54 £9 00058 BLBC STATUS, 7$ : | 
7F 50 AE 2 €1 0005 BBC #2, DEV_CHAR, 9$ : 1057. 
7A 52 SOA 4 £0 906 BBS #4; DEVICHAR+2, 9$ > 1066 | 
14 50 AE ¢ £1 0006 BBC = #2, DEVCHAR, * : 1103 | 
05 52S E0 9060 BBS #3, DEVICHAR+2, 4$ > 1105 | 
06 SA OAL 5 £1 000 BBC ; DEVICHAR+10, 5$ > 1106. 
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; Routine Size: 229 bytes, Routine Base: S$CODE$ + 0440 


; 1158 1150 1 

; 1159 1151 1 END ! End of OPERUTIL 

3; 1160 1152 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

; SCODES 1317 NOVEC,NOWRT, RD, EYXE,NOSHR, LCL, REL Snde'od rg bot ht 
: SPLITS 68 NOVEC.NOWRT, RD .NOEXE.NOSHR, LCL, REL, CON.NOPIC.ALIGN(2) 
; Library Statistics 

BS tg ha a a ee ane ie oe Symbols -------- Pages Processing 


ope PERT iSseectgge 01:38:19 YakeAL BLinESRR we o5z42 
File Total Loaded Percent Mapped Time 
HeeepUAsB:LoPcom OB JSOPCOMLIB.L32;1 “638 3 Bin a) 00:00:9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:OPERUTIL/OBJ=OBJ$:OPERUTIL MSRC$:OPERUTIL/UPDATE=(ENH$:OPERUTIL) 
Size: 1317 code + 68 data bytes 
Tine 00:80.6 
Elapsed. ttaee 01:39.0 
Lines/CPU Min: 259 


"eeeegy Ah age 19902 


157 pages 
por Binoy teaplete” 


row 


OPC 


| 029 AH-BT13A-SE QUIPMENT CORPORATION 


| DIG 
VAX/VMS V4.0 _ CON L AND PROPRIETARY 


29] SH-BT13A-SE DIGI 
VE7L VAX/VMS V4.0 CONF 


TAL EQUIPMENT CORPORATI 
IDENTIAL “AND PROPRIETAR 


ON 
Y 


